UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 
UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 

UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 
UUU UUU  VVV VVV 1171111 RRR RRR 000 000 MMMMMM = =6>MMMMMM 
UUU  VVV VVV 111111 RRR RRR 000 000 MMMMMM = 6MMMMMM 

UUU UUU  VVV VVV 111111 RRR RRR 000 000 MMMMMM ~=6MMMMMM 
UUU UUU  VVV VVV 111 RRR RRR 000 000 MMM MMM MMM 
UU VVV VVV 111 RRR RRR 000 000 MMM MMM = MMM 

UUU UUU  VVV VVV 111 RRR RRR 000 000 MMM MMM = =6MMM 
UU VV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 

UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 
UUU UUU VVV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 
UUU UUU  ~VVV VVV 111 RRR = RRR 000 000 MMM MMM 
UUU UUU  VVV VVV 111 RRR = =RRR 000 000 MMM MMM 
UUU UUU 111 RRR = RRR 000 000 MMM MMM 
UUU UUU vVvvV VV 111 RRR RRR 000 000 MMM MMM 
UUU UUU VvVsOVVV 111 RRR RRR 000 000 MMM MMM 
UUU UUU VvV OV 111 RRR RRR 000 000 MMM MMM 
UU 1911711711 RRR RRR 000000000 MMM MMM 
UUUUUUUUUUUUUUU VVV 117171111 RRR RRR 000000000 MMM MMM 
UUUUUUUUUUUUUUU VVV 117111111 RRR RRR 000000000 MMM MMM 


F XQE 
**F ILE**1D**XQB00T EL 


XX XX QQQQQaa BBBBBBBB 000000 000000 TITTTTITIT 
XX XX QQQ000 BBBBBBBB 000000 000000 TTTTITTTTT 
XH XX QQ QQ BB BB 00 00 00 00 TT 
Xx XX QQ QQ BB BB 00 00 00 00 TT 

XX XX QQ QQ BB BB 00 00 00 00 TT 

XX XX QQ QQ BB BB 00 00 00 00 TT 

XX QQ QQ 88888888 00 00 00 00 TT 
XX QQ 00 00 00 00 TT 

XX XX QQ QQ QQ BB BB 00 00 00 00 TT 

XX = XX QQ QQ QQ BB BB 00 00 00 00 TT 
XX XX QQ Q BB BB 00 00 00 00 TT cose 
ny XX QQ QQ BB BB 00 00 00 00 TT eee 
XX XX QQa0Q QQ 88888888 000000 000000 TT eee 
XX Xx QQQQ QQ BBBBBBBB 000000 000000 TT : 
LL IIIIII SSSSSSSS 
LL IIIII] SSSSSSSS 
LL I] SS 
LL Il SS 
LL II SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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module xqboot; 


CARRERA RARER REE EERE EAA E EEE TATE TATA ARTETA REE 


{* tt 
{* copys ht (c) 1984 * 
{ by DIGITAL Equipment Corporation, Maynard, Mass. : 
* This software is furnished under a License and may be used and copied * 
{* gnly in accordance with the terms of such License and with the * 
{* inclusion of the above copyright notice. This software or any other * 
{* copies thereof may not be provided or otherwise made available to any * 
{* other person. No title to and ownership of the software is hereby * 
te. transferred. * 
® 
{* The information in this software is subject to change without notice * 
{* and should not be construed as a commitment by DIGITAL Equipment * 
¢ Corporation. * 
® ® 
{* DIGITAL assumes no responsibility for the use or reliability of its * 
+ software on equipment which is not supplied by DIGITAL. * 
we *® 
Ce Ree RARER ERE RARE E RARER EAA EERE 
++ 
FACILITY: 
VAXELN and MicroVAX 
ABSTRACT: 


This module contains a VAX QNA (QBUS/Ethernet) Controller 
bootstrap driver. 


AUTHOR: 

Kris Barker 25-October-1983 
VERSION: 

v1.0-00 
REVISED: 


ey -ney. 1908 Kris K. Barker 1) Changed polling routines to 
v1.0-01 check for error/use bits in 
status word rather than fla 
word to fix extern. loopbac 
and down-Line load failures. 
2) Fixed zeroing of status word 
to fix 5rd LED shut-off problem. 
3) Added net_stop routine to shut 
QNA off after down-Line loading. 


COOCOOCOCOCOOCOCOCOCOOCOCCOSCOCOC OOO SCOOO COSCO OOOO COCO OO OOOO OOOO OOOOOCOoOO 


PEA AAAAAAAAAAAAAAADAAAAAAAAAAAAAA 
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1*4; 
Led2-out Sok {LED 2 off to indicate internal loopback passed} 
ledS_out = 54; {LED 3 off to indicate external loopback passed} 
load_protocol_type = %x160; {DECnet MOP load protocol type} 


150000; {max loop count for receive/transmit wait} 


max_wait_count 
500; delay count for resetting interface} 


delay_count 


xq_base_physical = 40014440; 
qbus_baSe_physical = %x20000000; 


f 
XQBO0T 10-AUG-1984 18:08:48.87 VAXELN PASCAL _X2.0-08 Page 2 E 
ELN X2.0-08 Dyes 199835 DL SESSTARGORKO3< EGAMACHE . UVIROM. VMBIX8S0%2) , 
d 
i ! 
9 include 4 
99 Sdatalink; d 
6 const y 
oe 8 { qna controller parameters } d 
66 0 qna_addr_size = 6; {address size} 4 
67 QO qna_type_size = 2; protocol type size} 4 
68 8 qna_header_size = (2 * qna_addr_size) + ana_type.s ize; 
$9 0 qna-crc_size = 4; C"sizes 
71 +O xmt_list_length = 1; paaees of transmit ring descriptors} 
72 0 rec_lis*_length = 4; number of receive ring descriptors 
i 8 setup_packet_size = %0200; 
75 «0 xq_devtype = 1; 
76 9 qa. yp 
i 8 { Values for use bits in descriptor flag word } 
80 0 _last_noerr = 0; {last segment of message with no errors} 
81 0 _last_werr = 1; {last segment of eyesaee with errors} 
0 _not_using = $3 {qna is not yet using this descriptor} 
4 using = 3; {qna using or used and not last segment} 
8 { LED values (occur in bit positions 2-4) } 
8 mode_base = 0; {no multicasting, no promiscuous mode, timer=0) 
led.nop = 0; ve effect 
8 LedT_out s LED 1 off to indicate self test running) 
0 
0 
0 
0 
0 
0 
0 


SSSLLSLASLESSLESLSS 


Zs 
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: 

yte = . 
sYoned 2 E385: en, 
ni 


ble = 0..%xF; 
datalink_message = datalink_data_message; 


bit_array = Cword] packed record 
case boolean of 
true : ( bits : packed array ee 15] of boolean ); 
se false : ( hex : packed array [ ..3] of nibble ); 


data_format(n:integer) = packed record 
length : word; 
data : string(n) 
end; { record } 


{ A physical address } 
phy address nigh = 
lon 


phy_address = 


~-63; 
q packed record 
case rateger ° 


: tr : “anytype ); 
13 ¢ Pull : integer FE; 
2: ( low 


3: (fl : word; 
end; { record > 


$9 { QNA csr register } 

3 csr_register = Cword]) packed record 

39 rx_en : boolean; {receiver enable} 

40 rset : boolean; reset} 

4 nxm_int : boolean; non-existant memory interrupt} 

4 boot _dia : boolean; boot diagnostic rom} 

4 tx_invalid =: boolean; transmit List invalid} 
rx_invalid : boolean; receive List Jovgt t¢2 
inte : boolean; interrupt enable 
txi : boolean; transmit interrupt request) — 
i loop : boolean; internal loopback - set is disabled} 
eloop : boolean; external loopback) 
stimer_ena sanity timer enable} 


oolean; 
transceiver : pos (125) boolean;{power is being supplied) 
carrier : boolean; sample of carrier sense signal} 
rx : Cpos(15$) boolean;{receive interrupt request) 
end; { record 


{ QNA register layout } 


ee ee me me em ce lm ee ee ee ee ee Dc me ee ee ed ae ed ed ed 


SOOO OCOCOCOOCOOOCOCOOOOCOOSOOOSOOGOOOOCCCSOOCOOOOCOSOOOOCON OS 


word_reg = Cword] packed record 


XQB007 
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oe os ° DODDDO co 0209 09 09 J INI NIN NIAAA AAA AAAAAA 
Pew UWO SR OSPR DD VER HOODMAN DOBSON OVI OO UP AUN Doe 


DOOGOOCOCOOSCOOOSOOCOOSCOOCOOCOCOOOSOOSOOOOOOOOOOCOOOOOoOoOoOO 
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qna_ ae = packed record 
case boolean of 


true : ( station_address =: array_[1..6] sf word_reg ); 


false : ( rx desc_list_low : (pos(32),word) word; 
rx_desc_ Uist =high : Lword word; 


tx_desc_Llist : 

tx “desc list” “high : 

vector address 
end; { record - 


register_ptr = “qna_registers; 


word] word; 
word] word; 
: Cword) word; 
: csr _register 


~~ 
ee 


{ Setup descriptor format } 
one_ do = wy / recerd 
addr _byte pos(8)J packed array (1..7] of byte; 
end; 


botue halt = Cat fonedt2)3 packed egeore 


dresses : packed array 3 --6] of one_Line; 
pores : packed array (1..2] of one_Line 
end; 


setup_descriptor = packed array (1..2] of setup_half; 


{ Descriptor format } 
Srey seter = = pecher record 


use_ ght noerr..using: {flag word} 

bufadr high : phy saarhel” oR: {high order address} 
bo_beg : boolean; 

Lbo_term : boolean; 

setup : Cpos(16+12)] boolean; 

end_of_mess : boolean; patter is last in message} 
chain_addr : boolean; address is chain address} 
valid” : boolean; {valid b 

bufadr_low : word; low order buffer address} 
but fer. size : signed; Length of the message} 
sta two status words 


tu status. words; 
end; t recerd 


transmit_list_array = array lek list -tength) of descriptor; 
receive_Cist_array = array (0..rec_list_length] of descriptor; 


status_words = Clong3 packed record 
case integer of 

0: ( Cuhole thing : 

1: € status for transmit descriptors } 


integer ); 


§ 
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packed could not be flushed) 
packet discarded} 

: eloop/setup packet 

rx_use : (pos _iast_noerr.. ye tng: {use status} 
T_low : byte) {high bits of byte length) 


rbl_hi : Cpos(8)] 0..7; {bits 8-10 of rx ogse Length) 
runt : boolean; 


15 ( seyret : Cpos(4)] 0..15; collision count} 

18 fail : boolean; no collision pulse} 

1 abor : boolean; transmission aborted) 

18 stel : boolean; default sanity timer on) 

1 nocar : boolean; no carrier) 

0 loss : boolean; carrier loss during xmt) 

1 tx_use : pos (14s) _test.noerr.. us ng; {use status 

é tdr : O..2x3f ff); {time domain reflectometry 
2: { status for receive descriptors 

4 ( ovf : boolean; overflow} 

5 crcerr : boolean; cre srrers 

§ frame : boolean; framing oh \qnsent error) 

i short =: boolean; short packet) 

9 


esetu : boolean; 
: (145) 


5 


rb 
end; { record } 


5 = 
* { Mode bits } 
39 mode_flag = packed record 
40 case boolean of 
41 true : ( full _: integer ); 
4 false : ( multicast : boolean; 
4 romiscuous : boolean; sprentecueys mode} 
st ed_value : iz : ; ED value 
4 pontty_tiner : 0..75 sanity timer in 1/4 sec.) 
r end; { record 
4 qna_boot_structure = record 
4 transmit_list : transmit_list_array; 
2 xmt_list_address : phy_address; 
receive list : receive_list_array; 


rec_list_address : phy_address; 


hardware_address : datalink_address; {current system address} 
load_server_address : datalink_address; {address of load server} 


transmit_buffer : datalink_message; 
xmt_buffer_address : phy_address; 
recéive_buffer : array B--rec.tist_tengeh=1) of datalink_message; 
rec_buffer_address : array (0..rec_list_length-1] of phy_address; 


DIAM MVIVIVIVIV 
DONO ULSWN —“OVOONOUSE 


address_control_packet : setup_descriptor; {setup packet} 
setup_packet physical : phy_address; {address of setup packet} 
end; 


qna_structure_pointer = “qna_boot_structure; 


SGDOCOOGCOCCOCOOCOOCSCOOCOOSOSOSOOSSCSOOOOOOOOOOOOOOoOO 
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var 


qna_ptr : qna_structure_pointer; 
na_reg : register_ptr; 
receive_index : integer; 
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{qna registers pointer} 
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function net_init ( var devtype : pacege rs 
ali xptr : “anytype ) : boolean; 


This procedure is called to initialize the QNA controller 
Inputs: 
xptr = pointer to some usable memory 
Outputs: 
devtype = qna device type 
{ controller initialized 


{--) 


type 
station_addr = Cword] packed record 
case boolean of 
true : ( full : word r 
false : ( address “beth t or bitel byte ); 
end; { record } 


var 
pa_byte : station -addr; 
i : integer 
xmt_index : in eeer: 
rec_index : integer; 
six bytes : integer; 


status : boolean; 
begin 
e NET_INIT: 
SE 04 C2 subl Sp 
57 00000000 EF 9E movab $DATA,r7 


{ Save the location of the available memory } 
qna_ptr := xptr; 001 

08 A7 08 AC DO 001 movl 08(ap) ,08(r7) 
qQna_ptr* := zero; 


17 
08 B7 1ED8 BF 00 6E 00 2C 0017 movcS #0,(sp),#0,#1ED8,a08(r7) 


{ Initialize the register and vector addresses } 


87 Her N_ PASCAL 


DISKS STARWORKO3: GAMACHE . UV1ROM. vmeoxas 


$06 

006 

FC a096 eentry NET_INIT,“m<dv,iv.r2.r3,°4.r5,r6,r7,r8> 
a ta 


P| 
5 
5 
5 
5 
5 
5 
5 
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323 (1 qna_reg :: integer := 68 wager + qbus_base_physical; 
04 A7 20001920 8F DO movil #20001920,04(r7) 


4 1 
>, 1 { Initialize the controller: toggle the reset bit and boo 
gi ! diagnostic bit to reset the controller and turn on the. leps } 
8 1 write_register ( qna_r csr, rset := true ); 
2 04 A7 OD mov l 06 (er?) 2 
E A2 02 B C movw OE (F2) 5 
329 1 write_register ( gna_rege csr, rset := false ); 3 
52 04 A7 DO $ 0 mov 04(r7),r2 
OE A2 00 BO 4 movw #0,0E(r2) 
330 1 delay; 
0038 
065D CF 00 FB 03 calls #0,DELAY 5 
331 «1 write_register ( qna_reg csr. boot_diag := true ); 5 
52 04 A7 DO 03D mov 04(r7),r2 
OE A2 08 B0 0041 movw #8 ,0E(r2) 
332 #1 delay; 
Ope? 5 
0650 CF 00 FB 045 calls #0,DELAY 
333 (1 write_register ( qna_reg’ csr. boot_diag := false ); 
52 04 A7 DO O4A movl 0407) ),r2 
OE A2 00 BO 004E movw #0,0E(r2) 
334 «(1 receive_index := 0; 
0038 
67 D4 005 clrl (r7) 


{ Get the descriptor lists, buffers, and setup packet addresses } 


WANN 
WAw 
NOw 

—— 


with qna_ptr* do 


0054 
56 08 A7 00 0054 mov l 08(r7),r6 
339 1 begin 
0058 
340 2 xmt_list_address.ptr := address ( transmit_list ); 
18 A6é 66 DE b088 moval (r6),18(r6) 
341 2 rec_list_address.ptr , := address ( receive_list ); 


58 A6é 1C A6 DE C moval 1C(r6),58(r6) 
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342 


343 


361 
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xmt_buffer_address.ptr := address ( transmit_buffer ); 
0660 C6 68 A6 9E eBer movab 68(r6),0660(r6) 
De tine areca, := address(address_control_packet); 
1ED4 C6 1654 C6 DE 67 moval 1€54(r6),1ED4(r6) 


{ Initialize the setup frame } 
for six_bytes := 1 f9.6 do 
54 01 DO 0 L #i,r4 
BN wee” ‘ 


begin 


hardware_addres jpeotat it, address_byteCsix_bytes] : 
5B A644 FE AD 90 8 85 movb -02( fp) ,5B(r6)Cr4] 
pa_byte.address_byte; 


0071 
pa_byte. full Hope areaister (qna_reg*.station_address(six_bytes] ); 
53 54 3 C1 ia addl\3—s r4,r4,r3 
52 04 A7 DO 075 movi  04¢r 75 ,r2 
52 FE “A203 g 079 movab cogirastrs3, r2 
5° O7E movw 
FE FY BO 081 movw rd, 65° tp 
$: 
0 
0 


end; 
0088 
E2 54 06 F3 0088 aobleq #6,r4,vcg.1 


{ Put the addresses into the setup descriptor } 
ee ergo eee 
0558 CF 00 FB O8F calls #0,UPDATE_MULTICAST_ADDRESSES 


{ bat 2%. the transmit gr tay list } 


= 0 to xmt_list_length 
094 
53 D4 B86 clrl r3 
096 vcg 
with transmit ~bigsCid do 
5 96 LL3 r 
$73 625 §? Bon Comal (as Pe55 eo 


begin 
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009E 
86 s := _not_using; 
62 02 OE 02 FO 6 9E insv #2,HE #2, (r2) 
hai d := f 3 
cha nadde = false 


valid . := false; 
03 A2 CO BF BA rk bicb2 #C€0,03(r2) 
end; 
OAs 
EA 53 01 F3 OA aobleq #1,r3,vcg.2 


{ And the receive descriptor List } 
for rec_index := 0 to rec_list_length-1 do 


54 D4 OOAC clrl r4 
OOAE vcg.3: 
begin 
° OOAE 
rec_buffer_eddresaCrec. index).ptr 7s 
52 54 OO0005F8 BF C5 OOAE mull3 #5F8,r4,r 
1644 C644 0664 (642 SE 0086 movab boon (resee27, 1E44(r6)Cr4] 
address ( gf ceetve. bufferCrec_index] ); 
with receive Listtrec. index] d 
52 54 OC C5 OOBF mull3 #C,r 
53° 1C A642 SE —-00C3 moved 1Cbr ésf¢21, r3 
begin 
. o0ce 
use_ ~stotue ie _not_using; 
63 02 OE 02 FO $668 insv #2,#€,#2,(r3) 
bufadr mH rec_buffer_address(Crec_index].high; 
OCD ashl #2,°4,r2 
52 1646 code +9. extzv # os dS r2 
02 A D9 insv 02(r3) 

bufadr_low Me rec_buffer_addressCrec_index].low; 

6,58 gd addl3 P 

04 A3 1644 teas 60 eS movw eaccrestr2),06(r3) 
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on Bs 
06 A3 FDO4 8F BO EA movw #-2FC,06(r3) 
380 4 chain_addr ofo false; 
03 A3 40 BF BA Soo bicb2 #40,03(¥"3) 
381 4 valid oots true; 
03 A3 80 BF 88 OOF5 bisb2 #80,03(r3) 
382 4 status := zero; 
OOFA 
08 A3 D4 OOFA clrl 08(r3) 
383 4 end; 
OOFD 
384 3 end; 
OOFD 
AD 54 03 F3 OOFD aobleq #3,r4,vcg.3 
385 2 
$68 § { Last entry is to chain } 
388 2 with receive_listCrec_list_length] do 
010T 
389 2 begin 
0101 
390 3 chain_addr := Eryes 
4F A6 40 BF 88 0101 bisb2 #40,4F(r6) 
391 3 use_status := orgg-usings 
4D A6 02 06 02 FO 0106 insv #2,86,42,4D(r6) 
392 3 valid :3 true: 
4F AG 80 8F 88 010C bisb2 #80,4F(ré6) 
393 3 bufadr_high := rec tist_eddress. high; 
52 5A A6 06 00 EF atk extzv #0,#6, secre ),r2 
4E A6 06 00 52 FO 0117 insv r2,#0,86,4E (r6) 
394 3 bufadr_low := rect fat_eddress. lows 
50 Aé 58 A6é BO BHD movw 58(r6) ,50(r6) 
395 3 end; 
0122 
396 2 
pum sm i: th aaa am a a a a a a i ee a a ia i i a ae 


-((size(datalink_message)+1) div 2); 
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23-MAY-19 Eu 
97 { Pass the descriptor address to the controller } ( 
98 write_register ( qna_reg*.rx_desc_list_low, rec_list_address.low ); ‘ 
1 movl 4(r7),r2 ( 
04 5 a A6 80 i movw eae 04(r2) 
399 2 write_register ( ane peg*.rx desc list. high, rec_list_address.high ); 
53 5A ag 06 09 EF 128 extzv #0 0.g SA(r6) 73 ¢ 
52 04 A? DO 131 mov l Sire ( 
06 A2 53 B0 135 movw of O6(F25 
it 3 ! 
rt { Set the load server address to the load server multicast address } 
404 $ load_server address, is **(171,00,00,01,00,00); 
62 A6 FEC2 CF 06 28 01 139 move3) #6,$CODE,62(ré6) 
405 2 ¢ 
406 2 end; { with qna_ptr* } ( 
0140 
407 1 
rts : { Start the good citizen tescs } 
410 1 net_init := false; 


0140 
58 94 0140 clrb r8 


{ LED #1 out indicates start of test } 
status := set_mode ( ledl_out ); 


oar ar ar 
td and ond ad 
Fuwn— 
— se 


142 
04 DD 142 pushl #4 
O4DD CF 01 FB 144 calls #1,SET_MODE 
415 1 
2i8 : { Set up the transmit buffer for the tests s 
418 1 with qna_ptr*.transmit_buffer do 
52 98 A7 00 149 movl 08(r7),r2 
6 52 DO 014D mov | r2,r6 
419 1 begin 
0150 
420 2 dest_address := "58 esr’ -hardware_address; 
68 A6 5C A2 06 28 130 move3) #6,5C(r2),68(r6) 


421 2 source_address := zero; 
a 


6E A6 06 00 6E 00 2C movcS #0,(sp),#0,#6,6E(ré6) 
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624 
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2 


sB-ale-1964 8: 08:4 


movw #6000,74(r6) 
_Max_packet_size do 
movl #i,r3 


protocol_type := x 

74 A6é 6000 BF BO 8} 

for i := 1 to data ! 

53 01 DO } 

dataCi] := i mgd 

52 53 F 1 
EH 8 

EE 53 OOOO05EA BF F 1 
end; 


t #0,49,r3,r2 
movb 2 Me traseesy 
aobleq #5EA,r3,vcg.4 


{ Run the internal loopback test } 
status := loopback_test ( true ); 
0178 
0178 
017A 


01 DD pushl #1 
01C6 CF 01 FB calls #1,LOOPBACK_TEST 


{ If ok, then turn out the 2nd LED and run the external test } 
if status then 


017F 
29 50 E9 017F blbc r0,vcg.5 
begin 
the 0182 
status := set_mode ( led2_out ); 
bigs 
08 DD 182 pushl #8 
049D CF 01 FB 0184 calls #1,SET_MODE 
52 50 90 0189 movb r0,r2 
status := loopback tt ( false ); 
00 DD 18C pusht #0 
01B2 CF 4 FB 1 3 calls #1,LOOPBACK_TEST 
52 50 90 1 movb r0,r2 


{ If ok, turn out LED #3 and set the return status to true } 
if status then 
0136 
12 52 £9 196 blbc r2,vcg.5 


begin 
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442 


443 


Lai 


a&S 


451 


3 


——nor 


0199 
status := set _noge ( led3_out ); 
C DD 199 hl 
0486 CF 01 FB a198 Pails 
reset_for_normal_operations; 
watt O1K0° 
1D AF 00 FB 1A0 calls 
devtype := “a BFAdPe: 
04 BC 01 DO 1A4 mov l 
net_init := true; 
01A8 
58 01 90 01A8 movb 
end 
01AB 
O1AB vcg.5: 
end; 
end; 
01AB 
50 58 90 01AB movb 
04 Q1AE ret 
O1AF 


:08:4 
4:2 
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DISKSSTARWORKO3: 

Hi 

#1,SET_MODE 

#0,RESET_FOR_NORMAL_OPERATIONS 

#1,804(ap) 


#1,°8 


r8,r0 
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i 
4 
454 rocedure net_stop; 
455} : ++ 
456} 
2 4 1 re procedure is called following the down-line load to turn off the 
459; 1 
460; 1 --) 
461 1 
462 1 begin 

1AF 

1AF NET_STOP: 

C004 QIAF entry NET_STOP,“*m<dv,iv,r2> 
5C 00000000 EF 9E 1B1 movab $DATA,ap 

4635 1 
464 1 { Simply set the reset bit } 
465 1 
466 1 


write_register ( qna_reg, csr. rset := true ); 
01B8 


52 04 AC DO 0188 movl hte 
B0 1BC 


2 
OE A2 02 018 move -#2,06 (F2) 
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47 
an 
ts rocedure reset_for_normal_operations; 
tha: se 
475! 1 This procedure resets the device either following the initialization tests 
ois! : or after a receive or transmit timeout. 
478! 1 --) 
479 1 
480 1 begin 101 
1C1 RESET_FOR_NORMAL peg ear ions 
£006 ei sentry RES FSR. NORMAL _OPERATIONS , “m<dv,iv,r2> 
52 00000000 EF 9E 1c movab SDATA 
481 1 
re : { Reset the device } 
484 1 write_register ( qna_reg. csr. rset := true ); 
5C O46 A 4 1CA mov l 03 Fer ges 
OE AC 02 B 1CE movw #2,0E (ap 
485 1 delay; 10° 
O4c3 CF 00 FB BIDE calls #0,DELAY 
486 1 write_register ( qna_reg .csr. rset := false ); 
5C 04 A2 DO O17 mov l 04(r2),a 
OE AC 00 BO 1D8 movw #0,0E (ap 
487 1 delay; 
ated 
0486 CF 00 FB 1DF calls #0,DELAY 
488 1 write_register ( qne_regger’ rx_ena := true, 
5C 04 A2 00 1E4 movl Ob ire) 
OE AC 0101 BF BO 1€8 movw 101,0€ (ap) 
489 1 iloop := true, 
$9 1 eloop := false ); 
rs ; { Pass the descriptor address to the controller } 
494 1 receive_index := 0; 
pice 
62 D4 1EE clrl (r2) 
495 1 write ~credgie: ae sEEtadesc.List_lou,qna_ptr’.rec_tfst_edéress. low); 
eC Oe 1F9 movl 8(r2),r0 
1F mov l 4(r + 4 
04 AC 1F8 movw { (ap) 


496 1 aepaahoe ha Sake tees Se pA IRE ar Sy FO 
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xQB00 
ELN 23 0-08 
5¢ 08 A2 DO if. Ls OB (2) 
r a 
50 SA AC Oe 06 EF extzv BF ee kPa) ro 
3¢ A pO mov 04'r25,a 
AC 50 B movw r0,06(ap 
497 1 
498 1 end; 
F 
04 030 ret 
10 
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1 
i procedure load_transmit_descriptor ( es ize : integer; 
87 er_address : phy_address; 
Be : e setup_packet : boolean ); 
4 

oF ! This function will load the transmit descriptor 

09: Inputs: 

1! 1 msize specifies the size of the message 

\¢} 1 buffer_address is the physical address of the buffer 

‘7 ; setup_packet is true if the buffer is a setup packet 

151 } Outputs: 

17 Transmit descriptor initialized 

19! 1 --) 
520 1 begin ‘ 

10 LOAD_ agen DESCRIPTOR: 
ggte 1 -entry LOAD _ TRANSMIT DESCRIPTOR, “m<dv,iv,r2,r3,r4> 
43 occ 1 subl2 4#C 
52 0009000 EF 9E 1 movab SoAT 2 
4 04 BC 43 1C moval a04(ap 
FC io 08 BC D 20 mov | 508.5). +o b6C tp) 


ww 
rr 
Ne 
—_ 2 


with qna_ptr*, ie censatt(fetl0y do 
5 


53 08 A2 DO mov l 08(r2),r3 
523 1 begin 
0229 
524 e_status : t_using; 
ase S eobea” ta Fol i. ” 
63 02 OE 02 FO a insv #2,#E,#2,(r3) 
02 A3 40 BF BA bicb2 #40,02(r3) 
526 2 lbo_term := odd(msize); 
f 54 01 00 a extzv A $.f sp) 
01 17 ge FO insv 125). #7 Ale (3) 
527 2 buffer_size := -((m jgeot) div 2); 
D incl r4 
sh oe 3 ts F divl2 #2,r4 
+ anes’ r4,r4 
4 cvtlw £4,06(r3) 


528 2 aceahegas := buffer_address.high; 


XQB00T 
ELN X2.0-08 


4 
O4 AE FE Ap os on er BEES xtav 0 #6,-03( 10) ,04( 4p) 


6 


Ww 


bufadr_low := Oss address. low; 
04 A3 FC AD BO movw -04( fp) ,04(r3) 
end_of_mess := trai. 


valid = tru 

03 A3 AO BF 88 bss bisb2 #a0,03(r3) 

setup := aa: pecnets 

01 1C OC AC FO 61 insv OC(ap) ,#1C,41,(r3) 
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ELN 
; 
unction start_transmission : boolean; ? 
r ' : te 7 
4 1 This tyne ion will write the transmit descriptor address to the qna f 
44; 1 and wait for the qna to transmit the packet and receive the looped ? 
ht ! response (called by the loopback routine and the set_mode routine). f 
ef | Inputs: f 
a3 } none H 
51 : Outputs: H 
sf } function returns the value of the csr on return H 
551 1 --} - 
28 1 var 8 
4 : time_count : integer; H 
285 1 begin ‘ 3 
6 és START_TRANSMISSION: 8 
coic 6 eentry START_TRANSMISSION,“m<dv,iv,r2,r3,r4> 
54 00000000 EF 9E 026A movab $DATA,r4 
560 1 
561 1 { Write the descriptor address } 
562 1 write_register (qna_re app nnees,L 188 Law,gna_ptr” mat | 1et_sdéress. low); 
; 6 A4 D 71 movl 08(r4),a 
4 ASD 75 mov 04(r4),¢r 
08 A2 18 AC B0 09 movw 18(ap) ,08(r2) 
563 1 write_register (qna_re appt tees. | tet nigh qna_ptr® .sat, tet _sddress high); 
52 08 A4 00 7 movl 08 ¢ro) r2 
53 1A Ad 06 00 EF extzv #0,#6,1A(r2),r3 
52 04 Ad D9 ‘ movi 04¢r4S.r2 
OA A2 53 8 C movw r3,0A(r2) 
64 1 
i 1 { Wait for completion } 
3 i time_count := 0; 9 
D clr r 
5304 6590 wm 
568 1 repeat 9 
52 6s 03 C5 $3 mull3 rf (r4),r2 
5¢ 08 A4 DO 9 movi.  0B(r4),ap 
9A vcg.6: 


569 2 time_count := time_count+1; 
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AB 
53 06 $58 incl r3 
570 2 until (qna_ptr*.receive ListCreceive_index].status.whole_thing<>0) or 


ag! 
ELN K2.0-08 


24 AC42 D tstl "995 Cr2] 
g | A bneq 
000249F0 8F A cmpl $i249F0 
EF A bleq veg 
AB vcg.7: 
sre : (time_count > max_wait_count); 
5 1 start_transmission := jos count < max _wait_count; 
26 94 AB clrb "¢ 
000249F0 8F D1 AD cmpl r gens 
18 B4 bgeq vS9- 
96 Be incb r 
B8 vcg.8 


ww 
VN 
ne 
_— 


end; 


movb r2,r0 
ret 


50 52 2 5 
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i 0 
7 , unct ion internal_locp : boolean; 
4 
¢| } This function handles the special case of internal loopback 
14 --) 
5 4 
1 var 
1 time_count : integer; 
8 i csr : csr_register; 
90 1 begin 


INTERNAL LOOP: 


BC 
BC 
oc BC Tentry [TERNAL LOOP, “m<dv,iv,r2,r3> 
43 04 5 BE subl2 sp 
52 00000000 EF 9E C1 movab SDAT .r2 
1 
: { Write the descriptor address } 
1 write_register gatety : poecnintnaity 
50 08 A2 DO C mov l 08(r2),r0 
5C 04 A2 00 cc movl 04(r } + ap 
08 AC 18 AO BO DO movw 18(r0) ,08(ap) 
1 qna getr* -xmt_list_address. low); 
1 write_register (qna_reg”.tx _desc~ List_high, 
5C 08 A2 DO D5 mov 08(r2 
53 1A AC £ 0 EF D9 extzv #086 Rap), r3 
5C DO DF movi 04(r25,a 
OA AC 3 B0 02E3 movw r3, OACap 
! qna_ptr*.xmt_list_address.high); 
' { Wait for the transmit interrupt bit } 
1 time_count := 0; 
pee? 
53 D4 2E7 clrl r3 
1 repeat 
. 0269 
E9 veg.9: 
2 csr:= read_register fane.reg®.cer ); 
af oe AS 60 E9 mov! aire) .ap 
0 0E A ED movw OF Cap) 
FE AD 5 F movw 2tfp) 
2 time_count := oe 


XQB00T 
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N 4 
Seats 


088 


4 
4 


12th P” Dae 


53 06 incl r3 
nop; 
6365 
0380 CF 00 FB F calls #0,NOP 
until (csr.txi) or (time count > on etae 
7 £0 F bbs 2(fp),veg.10 
o00"” ar 5 | i Evel “y. #39 oF’ — 
e C 
A veg.10: » we 
{ Clear the transmit bit and enable the receiver } 
write_register ( of *.csr, txi := true, 
5C 04 A2 DO is movl 04(r2),ap 
OE AC 0081 8F B80 030E movw #81 ,0E (ap) 
iloop := false 
rx_ena := true 5; 


{ Now wait for the receive to complete } 
time_count := 0; 


0314 
53 D4 0314 clrl r3 
repeat 
0316 
0316 veg.11 
time_count := time sree 
53 06 8 16 incl r3 
nop; 
O38 
O38F CF 00 FB 031 calls #0,NOP 
until (qna_ Th jfetCrecetve index].status.whole_thing<>0) or 
20 § 1D mull3 + (re). r0 
1 movl ores (r2 ap 
sc 6 ta tstl 4(a ¢° ] 
313 bneq oP 
000249F0 ar $ 3 01 capl r a 9FO 
E2 15 bleq veg. 11 
veg.12: 


(time_count > BF ase 


internal_loop := time_count < max_wait_count; 
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4 
26 96 4 ag 
000249F0 8F D1 6 cmpl r3,#249F0 
ge 18 D bgeq veg. 13 
C 96 F ap 
41 veg.13: 
6s¢ 1 
625 1 end; 
gi 
50 5C 90 41 movb ap,r0 
04 Bate ret 
45 
626 0 
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function loopback_test ( internal : 


This function will 


boolean ) 


sE-adertgpe 19:98:4 


: boolean; 
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erform the indicated kind of ponpeeen test (either 


internal or external) and return the results of the 


Inputs: 


internal is true for internal loopback test 


Outputs: 


function returns true if test passed 


(==) 
var 


: boolean; 
integer; 
nteger; 


status 
time_count : 
msize : 


begin 


COFC 
56 00000000 EF 9E 
57 04 BC DE 


{ Set the proper value in the csr } 
write_register ( qna_r 


DonoOn"woOvoowr 
COOOCMOeOroS 


COCO COCOOOooOn 


WWW AANA WO 


De S-contoess-0re S 
7 


Own WW oofror: 


eloop 
rx_ena := 


LOOPBACK_ bint $4, 


ntry LOOPBACK. TEST, “m<dv,iv,r2,r3.°4,r5,r6,r7> 


aovad 
moval a04(ap), r7 


:= not internal, 


clrl r4 

xorb3 #1,r7,r2 
movzbl r2,r3 
cvtbl r3,r 


insv r H8 ears 


cvtbl fr ts 
insv r2,49,841,74 
movl (r65, re 
movw r4,0E(r2) 
:= not internal, 
false ); 


{ Write the descriptor address to start the transmission } 


qna_ptr*.receive_buffer 5 


Me 


53 66 a 08 is 00 


0664 (243 O5F8 8F 


78 
7F 


ceive_index] 


:= zero; 
mull3 oars, fre). r3 
mov 
move5 08(r6 feng? ‘0. #5F8,0664(r2)Er3) 


— 


XQB00T 
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663 


664 


667 
668 


669 
670 
671 


67 
67 


674 
675 


676 


677 


1 


so 


ss 


=~ 
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if internal then 


A 
05 57 E9 B3Bh blbc r7,vcg.14 
msize := 6 
4 
55 06 dO D mov l #6,r5 
11 33 brb veg.15 
92 veg.14: 
else 
msize := stzeCdate} ink message); 
55 OSF8 BF 3C 0392 movzwl #5F8,r5 
0397 veg.15: 
Load, Sranents_sesgrspter} msize, qna_ptr*.xmt_buffer_address, false ); 
00 DD $399 pushl #0 
52 08 A6é DO 0399 mov l 08(r6),r2 
0660 ce 9F 0390 pushab 0660(ré) 
55 DD Q3A1 pushl rf 
FE68 CF 03 FB 03A3 calls #3,LOAD_TRANSMIT_DESCRIPTOR 
if internal then 
03A8 
OA 57 E9 03A8 blbc r7,vcg.16 
status := wnROrnes jeae 
FFOC CF 98 FB 03AB calls #0, INTERNAL_LOOP 
52 50 90 baeg movb ° 
08 11 038 brb veg. 17 
0385 vcg.16 


e 
status := start_transmission; 
3B5 


98 FB 5 calls ++ 12 ald ntanaatachtamt 


CF 
52 8 BA movb r0,r 
3BD vcg.17: 


if status then 


038D 
48 52 £9 03B8D blbc r2,vcg.20 
begi 
ee 03¢0 
qna_ptr*.receive_listCreceive_index].use_status := _not_using; 
53 66 000000 9 or C5 C mul #60,(r6),r3 
6c C addl * r3 
52 08 Aé D CB move 08 rb), r2 


XQBO0T 
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682 


683 


684 


685 


686 
687 


688 
689 


690 


2 


oe 
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1D A2 02 53 02 FO O3CF insv #2,03,82,1D(r2) 
if qna_ptr*.receiv py tertrecetve, index: 1string(asize) = 
52 66 ae! a c5 4 out}? #5F8.(r6),r2 
mo 
68 AG 0664 C443 55.59 O3E1 tS r3. cOggL ra Cr2, 68(r4) 
05 12 E9 neq 
qna_ptr* fins coppice es then 
loopback _test eas 
53 01 90 O36 movb #1,°3 
02 11 Hd brb veg.19 
O3FO veg.18: 
lse 
lLoopback_test bsegnt se? 
53 94 Sar clrb r3 
O3F2 veg.19: 
rcs ace ek te beads coal ar a: := zero; 
52 66 OC C5 O3F mull3 #C,(r 79) 006 
52 24 Mis 9E O3F6 movab 24 (rg Cr2J),r2 
62 D4 03FB clrl (r2) 
receive_index := a tpeetee,, inten + 1) mod rec_list_length; 
52 66 01 C1 O3FD addl\3 #1, (r6),r2 
66 52 02 00 EF 0401 extzv #0,#2,r2, (r6) 
on: 0406 
02 11 0406 brb vcg.21 
0408 vcg.20: 
lse 
loopback_test := false: 
53 94 0408 clrb r3 
40A vcg.21 
—_ 4OA 
50 53 90 Oca movb r3,r0 
04 40D ret 
040E 
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function net_receive ( var buff 
buff_size : word 


++ 


F 5 
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: string(buff_size); 


: boolean; 


This function is called to receive a message 


Inputs: 


buff = buffer to receive message 


buff_size = buffer size 


Outputs: 


Message received into callers’ buffer 
--} 


var 
source_address 
dest_address 
protocol_type 
xlen 
done 
timecount 
status 


begin 


SE 1 
57 00000000 E 


done := false; 


timecount := 0; 


: datalink_address; 


: datalink_address; 
: datalink~protocol_type; 
: integer; 
: boolean; 
: integer; 
: boolean; 
040E 
O40E NET_RECEIVE: 
CFFC Q40E -entry 
8 C2 Beis subl2 
F 9E 041 movab 
O41A 
5B 94 O41A clrb 
041C 
59 D4 041C clrl 


while not done do 


03 58 
0100 


4 BC DE 


68 AE 
4 AE 08 BC DE 


begin 


41E 

41E 

1 421 
424 gen.1: 

424 

429 

42E 


bloc 
brw 


moval 
moval 


NET_RECEIVE,“m<dv,iv.r2.r3.°4,r5,r6.r7,78,r9,r10,r11> 
#18,sp 
SDATA, 7 


rii 


r9 


put gan.’ 
vcg.50 
204 (ap) ,08(sp) 
208 (ap) ,04(sp) 


xQB007 
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727 2 


728 3 
729 3 


730 3 


042E 
repeat O42e 
timecount := timecount + 1; 
59 D6 ose incl 
nop; 
0277 CF 00 FB $30 calls 


iP-ade-1994 19:09:48.07 vaxeun pascay 


r9 


#0,NOP 


until oo py pale ease wane gant -whole_thing<>0) or 


4 mull3 
439 mov | 
52 8 Roe 43D tstl 
a ; 44 bneq 
000249F0 BF 59 D 44 cmpl 
E2 1 44A b 
44C veg.23: 


(timecount > max_wait_count); 


M=anmeaW 


status := timecount < max_wait_count; 


44C 
3 94 44C clrb 
000249F0 8F D1 44 cmpl 
18 45 bgeq 
96 45 incb 
459 vcg.24: 
5A 52 90 459 ovb 


{ Clear the interrupt bits ) 


write_register ( qna_reg*.csr, rxi 
45C movl 
OE A2 $108 8 8F BS 460 mov 
nxm_int : 
rx_ena 
i loop 
with qna_ptr* do 
asia 0466 
58 08 A7 DO 466 mov l 
begin 
° 046A 


net_receive := false; 
6E 94 46A clrb 


#3,(r7),°3 
ac 


19° #249F0 
veg. 


§ #24980 
vg9.c4 
r 


r2,r10 


:= true, 


04(r7),r2 
#8105, 0E (r2) 


:= true ); 


08(r7),r8 


(sp) 


.0-08 
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-MAY-1 Risk $STARWORKOS. 
746 3 if status and no of receive. ListCreceive_index].status.discard then 
5A E9 d C blbc ¢g.26 
4 70 46F mov crosve g° 
52 56 eates FC 472 mul #0, r6,r2 
4 C¢ 47A poet ee 
SE 25 AB SZ E 47D bs "3° 25 (78) ,vcg.26 
747 3 begin 
0482 
748 4 source_address := receive_bufferlreceive_index].source_address; 
52 56 000005F sts mull ty 
F4 AD 066A oben cece 6 53 4 nove a bes RtrBocr2d, -0C( fp) 
749 4 Cre := receive_bufferlreceive_index].protocol_type; 
56 OOOOO2FC BF C4 433 mull2 
33 $676 C846 §¢ 49 movzwl be7otrs)Cr6), r2 
750 4 
751 4 if ¢ protocol type = load_protocol_type ) and 
00000160 8F 52 D1 49F cmpl r2,#160 
53 12 4A bneq ¥S9- 
52 62 AB 9A 4A movzbl se r8), f 
08 5 58 4AC 5 9:4 
62 ABS F4 AD 06 4AF cmpc3 .=68 (fp) ,62(r8) 
44 12 bea3 bneq a 
487 vcg.25: 
Pee ( odd(load_server_address: :datalink_address_byte{1]) 
753 4 or (Source_address = load_server_addréss) ) then 
754 begin 
0487 
755 ; 
£38 { Extract length and message out of the data buffer } 
758 2 with r Faive.butterlreceive. index] do 
52 67 OOO005F8 BF C5 te mull3 #5F8,(r7).r 
56 0664 (842 9E 4BF movab 0664¢r8)r21, 
759 5 begin 
4C5 
760 6 xlen 3s data :: data_format(1).length; 
52 OE A6 3C bce movzwl OE(r6),r2 
761 6 bulls data :: data_format(xlen).data; 
08 BE 04 AE 20 10 A6 52 2C bee9 moveS r2,10(r6),#20,04(sp) ,a08(sp) 


762 6 end; { with } 


ag! 
ELN K2.0-08 


i 3 


765 5 
766 5 
767 ‘5 


768 4 


170 § 


771 4 


772 «5 
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0402 


address := source_address; 


a Bab r 
moveS #6,-0C( fp) ,62(r8) 


62 AB F4 AD 06 28 
done := true; 


58 01 90 beb8 movb #i,rii 
net_receive := true; 
6— 01 90 biog movb #1, (sp) 
end; 
O04DE 
end 


4DE 
1B 11 Gene brb vcg.28 
4E0 veg.26: 


else 
with ed °, arena paneer -Status do 
3g 67 0¢ C5 ri, mull3 #C,(r7),r 
52 24 AB42 SE —04ES movab 24(r8)Cr2),r2 
if not pEgtue or (crcerr and discard and not runt) then 
OC 5A E9 4E9 blbc £10, v refine 
08 62 01 E1 4EC bbc vcg. 
07 62 OC El 4F0 bbc aie ' ),veg. 
03 62 0B E0 4F4 bbs #B,(r2),vcg. 
478 vcg.27: 
done := true; 
5B 01 90 bet movb #i,rii 
4FB vcg.28: 
end; { with } 
04FB 


{ Now update the receive List index } 
if status then 
pore 
2D 5A E9 4FB blbc 
begin 


r10,vcg.29 


O4FE 
qna_ptr*.receive_listCreceive_index].use_status := _not_using; 


87 ett 
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XQBO0T “AUG- .87 VAXEL N PASCAL _X2.0-08 Pp AD! 
ELN X2.0-08 sb-ade- 1986 1P:dei3e 8” BASES STAMGORKOSEGAMACHE.UVIROM. MBS xaGoeT2) 

GFE $ | 
53 67 000000 er C 4F mult r7),¢3 $ | 
i a ae , 

1D A2 85 02 F D insv v 45° 1D(r2) : 
781 3 34 girinad . istCreceive_index].status := zero; $9 
33 84 f 1 mull3 a (07), r3 $s) 

1 mov : tr? r¢ $ 

52 anes 18 noveb aceite j,r2 : 

| 

782 3 ode is (receive_index+1) mod rec_list_length; $9 
701 C1 0382 ddl3 #1, (r7),r2 | 

67 5 83 8 EF 5 outae #0. #2 , bord tr?) : | 

783 3 end; $ 
0528 u 

0528 vcg.29: : | 

784 3 4 
785 end; { while } i : 
03 58 8 52B blbs rii, 59-30 $c 

FEFD 5 i brw veg. $ 

5 vcg.30: % 

786 1 $ 
787 1 & 
788 1 end; = $9 
50 6E 90 8 1 movb (sp),r0 $ 

04 0534 ret 4 

0535 $. 


789 0 


3 


EUR ke .0-08 sh-ads-1994 1F oe eee ee RUGAKOSSEGAMACHE .UVTROM. VMBIREG0%73) 


$ 
7 
13 function net_transmit ( var buff : strin (buf f size); : 
79 buff_size : word ) : bodlean; $ 
794 «1 $ 
795; 1 ++ t 
ies 1 % 
a1 | This function is called to transmit a message : 
799! 1 Inputs: $ 
00: 1 ee $ 
131 buff = buffer : 
8¢ : buff_size = buffer size ; 
B04: ; Outputs: : 
6! ! bs buffer transmitted : 
08 1 var $c 
9 4 csr : csr_register; % 
10 1 msize : intéger; $ 
811 1 t imecount : integer; $ 
gl¢ 1 $ 
81 1 begin 
0535 $ 
8 5 NET_TRANSMIT: $s 
CiFC 0535 sentry NET_TRANSMIT,“m<dv,iv,r2,r3,74,75,r6,r7,r8> $ 
5E 04 C2 0337 suble # <3 $ 
57 00000000 EF 9E 53A movab S$DATA,r7 : 
814 1 $ 
815 1 with qna_ptr* do 561 ys 
56 08 A7 DO ee mov l 08(r7),r6 ; 
816 1 begin $ 
° 0545 : 
817 3 $ 
818 with transmit_buffer go $ 
054 ; 
819 2 begin $ 
. 0545 5 
820 3 dest_address := load_server_address; : 
68 A6 62 A6 06 28 545 move3 #6,62(r6),68(r6) : 
821 3 source_address := hardware_address; . 
6E AG SC AG 06 28 548 moveS #6,5C(r6),6E(r6) : 
822 3 protocol_type := load_protocol_type; : 
74 A6 0160 BF BO 0551 movw #160,74(r6) $ 


823 3 data :: data_format(1).length := buff_size; 


a 
=] 


ELN ke .0-08 sh-ade-1984 1F 3a aoe? PERE Ee RASGakos EGanacHE .uvIROM. vMBnxaS0%13) 


SB 08 96 Bg GES moval agtuany,s 


data :: a “pe -Size).data := buff 


78 AG 93 $5 38 6 moves CB tos 98¢r6) 
end; { with } 


{ Load the transmit descriptor } 

msize := “ae + datalink_header_size + 2; 
5 
5 


6 
2 BE és a 


68 addl 
if msize < datalin n_packet_size then 


3¢ 6 D1 cmpl r2,#3C 
03 18 bgeq veg.31 


msize : ink _min_packet_size; 


52 3C DO movl #3C,r2 
cg.31: 


load_transmit_desc or ( msize, xmt_buffer_address, false ); 


PAAAAAAAAAAAPRMMKMMH MM 


eee 


$ 
$ 
$b 
$ 
bg 
$ 
$ 


payee 


nen 


60 DD pushlt #0 
0660 2 oF pusnee pe 
r 


ush 
FC8C CF O falls #5,LOAD_TRANSMIT_DESCRIPTOR 


{ Write the descriptor address to start the transmission } 
write pits { ane reg" tx desc_list_low, xmt_list_address.low ); 


52 O04 A 0364 se movl 04(r7),r 
08 A2 18 NG 8 5 movw 18(r6), *08(r2) 


write_register ( “B8ap reg*.tx_desc_list_high, xmt_list_address.high ); 
1A 4g 6 0 extzv 0 #6,1A(r6) ,r3 
§ Oe AY 60 8 ovt (ros as 


mov 
bc A2 $f BO 59 movw gt bacees 


end; { with } 
0598 


{ Wait for completion } 
timecount := 0; 


ng! 
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53 D4 $338 clrl r3 
repeat - 
833) veg.32: 


csr := read_register ( qna_reg*.csr ); 
4 A7 D 9D movl 4(r7),¢ 

i 0 a A se 
AS mone. Wa IS 


FE AD 5 
timecount := aa nt + 1; 
53 D6 5A9 incl r3 
nop; 
6348 
OOFC CF 00 FB 5AB calls #0,NOP 


until csr.txi or ( . tae > max_wait_count ); 


09 F 7 £0 58 bbs a -02(fp),vcg.33 
0002496 BF 53 D 5B cnet wgior Hane 
7 3S 5BC bleq coe 2 
O5BE vcg.33: 
write pupeegt: ( qna_ regni csr, txi := true, 
b28 BE 
52 movl 04(r7),r2 
OE A2 6188 ay 8 Ose movw #185,0€(r2) 
nxm_int := true, 
rx_@na := true, 
ildop = true ); 


{ Set the return status. 


if ( csr.nxm_int ) or ( net csr.txi ) or 
it re ap D Oe Ep ate bbs é +705 fp) veg. 34 
5¢D bbc # “9 (fp). vcg.34 
A 08 A7 50 30e movl O08(r7),Fr 
52 09 A 0 EF 5D extzv #6,#2,09(r2) .r2 
1 D1 50C capl re, 
04 12 SDF bneq vcg.55 
5E1 vcg.34: 
( gna_ptr*.transmit_listCO].status.tx_use = _last_werr ) then 
net_transmit := false, 
; 94 5E1 clrb r2 
11 EF brb vcg.36 
5E5 veg.35: 


else 


If the transmit timed out, reset the device } 
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nor 
Nm 
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end; 
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XQB00T 1§-auc-19 8:48.87 VAXELN PASCAL X2.0-08 Page 38 
ELN X2.0-08 25-MAY- 138 1%: $f 35° DISKS SE RRGGRKOS EGAMACHE .UVIROM. VMBIAESOCG4) 
5EC 
44: UPDATE _MULTICAST_ADDRESSES: 
ee sentry prone Se MULTICAST_ADDRESSES,“m<dv,iv.r2,r3,r4,r5,r6,r7,r8> 


57 00000000 EF gre movab 
921 1 
§ : { Load all addresses as the hardware address } 
924 1 with qna_ptr* do SF 
52 08 A7 DO bere movl 08(r7),r2 
925 1 for i := 1 to 2 do 
O3F8 
58 01 DO 5F9 movl #1,°8 
OSFC veg.37: 
926 2 for j := 1 to 6 do 
Sere 
53 01 be SFC movl #1,°3 
56 58 06 7 OSFF ashl #6,r8,r6 
0603 vcg.38 
927 3 for k := 1 to 7 do 
603 
3 01 DO 603 movl 
55 53 g 78 606 ashl 43. rt. r5 
55 56 CO Bea addl2.sré.r'5 
60D vcg.39: 
928 4 ee ea -addr_byteCk] := 
5c 55 54 C1 060D addl3 
1EOC C24C 5B A243 99 0611 movb eatr os ees] 1E0C(r2)Cap) 
FO 54 O7 F 0619 aobleq #7,r4,vcg. $9 
E2 53 06 F3 061D aobleq #6,r3.vcg.38 
D7? 58 02 F3 0621 aobleq #2,r8,vcg.37 
44 ; hardware_address: :datalink_address_byteljJ; 
931 1 end; 
0625 
04 beSe ret 
0626 
932 0 


6 
XQBO0T 19-auc-19 4 18: -87 VAXELN PASCAL _X2.0-08 Page 39 LC 
ELN X2.0-08 2 “Aho 1 984 1F:98:3 4:2 Pee aagonkos: EGAMACHE .UVIROM. VMBIAEEOe TS) 
933 0 $! 
924 0 $! 
4 if : punetson set_mode ( led_value_mode : integer ) : boolean; ., 
9371 1 $ 
4 3 } This procedure will write the mode to the qna . 
940 | Inputs : Current mode flags are used to set the mode HI 
943 Outputs : Controller mode set ze 
944! 1 {--} $! 
945 1 var $ 
946 1 mode_multiplier : errr 
947 1 tsize : integer; 
948 1 time_count : integer; 
949 1 
950 1 begin 
b6¢6 
0626 SET_MODE: 
cooc bese -entry SET yet | “m<dv,iv.r2,r3> 
52 00000000 EF 9E 0628 movab $DATA,r2 
951 1 
226 1 { Load the transmit descriptor } 
954 «1 mode_multiplier := er base + led_value_mode; 
51 04 AC 00000080 8F C1 gest addl3 -#80,04(ap),r1 
955 1 ea domes He (setup_packet_size+mode_multiplier), 
01 0638 pushl 
50 OB A b0 bosA mov $8 (r2) or 
1ED4 C 63 pushab TeDecr6). 
51 4 064 pushl 
FBC7 CF 03 FB 0644 calls iS, LOAD_TRANSMIT_DESCRIPTOR 


qna_ptr*.setup_packet_physical, 
true ); 


{ Wait for completion } 


ocowoo 
QOumuiw 
—OD0OnNo 
a et at 


96 set_mode := true; 
0648 
53 01 90 649 movb #1,°3 
962 1 if start_transmission then 
FC17 CF 98 Fe bees calls #0,START_TRANSMISSION 
40 50 € 651 blbc r0,vcg. 
963 1 begin 
0654 
964 2 qna_ptr*.receive_listCreceive_index].use_status := _not_using; 


965 


967 


968 
969 
970 
971 


975 


ag 
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mull #60,(r2),4r1 
addl # 


movl 80rd) 
insy 45° 1D(r0) 


1 C 
; A2 D 

02 F 
qna_ptr*.receive_l receive_index].status := zero; 


mull3 ATES ts ri 


SNNO  NNOOOR OMMUUM 


uV-— =—=OOmMon OKO OOM WTO S 


: 
is 
6 
1 §e 0c c5 6 
A2 00 6 movl 
50 24 A04 ; 6 movab 4(r eros r0 
60 D 6 clrl (r0) 
receive_index := ( eive_index + 1 ) mod rec_list_length; 
28 62 01 C1 Og addl3 #1, (r2),r0 
62 50 02 00 EF 6 extzv #0.#2,r0, (r2) 
if wa per’ tremens, istCO].status.tx_use = _last_werr then 
50 08 A2 DO 068 mov l 06 (0g) r0 
50 09 AO 02 06 EF = 068 extzv #6 .#2,09(r0),r0 
01 50 D1 0688 cmpl rd, 
06 12 068E bneq vceg.41 
set_mode := false; 
0696 
53 94 0690 clrb r3 
end 
0692 
02 11 0692 brb vceg.41 
0694 vcg.40: 


53 94 ye clrb r3 
0696 vcg.41: 


50 53 90 
04 


“EGAMACHE..UV1ROM. vma}x880¢45) 


et 


F 
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975 

ats 

4 procedure delay; 
378 1 var 

980 1 

981 +1 i: integer; 
ons 1 

985 1 begin 


69A 
069A DELAY: 
C000 069A entry DELAY,“m<dv,iv> 


nn 


984 #1 
985 1 for i := 1 to Soler sae, 
5C 01 DO dest movl #1,ap 
69F veg.42: 
986 1 nop 
069F 
09 AF 90 4 bes calls #0,OP 
F4 5C OOOOOIF4 BF F 6A3 aobleq #1F4,ap,veg.42 
04 06AB ret 
O06AC 
987 3 
988 end; 
989 0 
990 0 
991 O rocedure nop; 
992 1 egin 
Q6AC 
Q6AC NOP: 
C000 O6AC entry NOP,“m<dv,iv> 
993 #1 end; 
O6AE 
04 6AE ret 


end; { module xqboot } 
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